home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 089a.dms / 089a.adf / EXAMPLE_PROGRAMS / example18.AMOS / example18.amosSourceCode
AMOS Source Code  |  1992-03-06  |  964b  |  41 lines
  1. '================= 
  2. Rem example18.amos 
  3. '================= 
  4.  
  5. 'A small but useful procedure you could call from your programs
  6. 'see chapter 18 for more details 
  7.  
  8.  
  9. Rem this calls the procedure 
  10. '--------------------------- 
  11. _SYSTEMSTATUS
  12.  
  13.  
  14. Rem the procedure itself.
  15. '------------------------
  16. Procedure _SYSTEMSTATUS
  17. Curs Off 
  18. Paper 0
  19. Cls 0
  20. Under On 
  21. Print "SYSTEM STATUS : BYTES"
  22. Under Off 
  23. Print 
  24.  
  25. Rem Set the current drive to be df0: the internal drive EVERYONE has 
  26. '------------------------------------------------------------------- 
  27. Dir$="df0:"
  28.  
  29. Pen 5
  30. Print "DISK SPACE DF0:";Dfree
  31.  
  32.  
  33. Rem Check to see if the user has a second drive and if so show space on it 
  34. '------------------------------------------------------------------------- 
  35. A=Exist("DF1:") : If A=-1 Then Dir$="df1:" : Print "DISK SPACE DF1:";Dfree
  36.  
  37. Print "FAST MEM FREE :";Fast Free
  38. Print "CHIP MEM FREE :";Chip Free
  39. Print "TOTAL MEM FREE:";Chip Free+Fast Free
  40. Print "VARIABLE SPACE:";Free
  41. End Proc